home *** CD-ROM | disk | FTP | other *** search
/ SGI Performance Co-Pilot 1.3 / SGI Performance Co-Pilot 1.3.iso / dist / pcp.idb / usr / pcp / bin / pmnewlog.z / pmnewlog
Text File  |  1997-04-03  |  9KB  |  436 lines
  1. #!/bin/sh
  2. #
  3. # Copyright 1995, Silicon Graphics, Inc.
  4. # ALL RIGHTS RESERVED
  5. # 
  6. # UNPUBLISHED -- Rights reserved under the copyright laws of the United
  7. # States.   Use of a copyright notice is precautionary only and does not
  8. # imply publication or disclosure.
  9. # 
  10. # U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND:
  11. # Use, duplication or disclosure by the Government is subject to restrictions
  12. # as set forth in FAR 52.227.19(c)(2) or subparagraph (c)(1)(ii) of the Rights
  13. # in Technical Data and Computer Software clause at DFARS 252.227-7013 and/or
  14. # in similar or successor clauses in the FAR, or the DOD or NASA FAR
  15. # Supplement.  Contractor/manufacturer is Silicon Graphics, Inc.,
  16. # 2011 N. Shoreline Blvd. Mountain View, CA 94039-7311.
  17. # 
  18. # THE CONTENT OF THIS WORK CONTAINS CONFIDENTIAL AND PROPRIETARY
  19. # INFORMATION OF SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION,
  20. # DISTRIBUTION, OR DISCLOSURE IN ANY FORM, IN WHOLE, OR IN PART, IS STRICTLY
  21. # PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SILICON
  22. # GRAPHICS, INC.
  23. #
  24. # stop and restart a pmlogger instance
  25. #
  26. # $Id: pmnewlog.sh,v 2.1 1997/03/26 03:05:37 kenmcd Exp $
  27.  
  28. tmp=/tmp/$$
  29. status=0
  30. trap "rm -f $tmp.*; exit \$status" 0 1 2 3 15
  31. prog=`basename $0`
  32.  
  33. _abandon()
  34. {
  35.     echo
  36.     echo "Sorry, but this is fatal.  No new pmlogger instance has been started."
  37.     status=1
  38.     exit
  39. }
  40.  
  41. _check_pid()
  42. {
  43.     ps -ef \
  44.     | nawk '
  45. /<defunct>/    { next }
  46. $2 == '$1'    { print $2 }'
  47. }
  48.  
  49. _check_logfile()
  50. {
  51.     if [ ! -f $logfile ]
  52.     then
  53.     echo "Cannot find pmlogger output file at \"$logfile\""
  54.     else
  55.     echo "Contents of pmlogger output file \"$logfile\" ..."
  56.     cat $logfile
  57.     fi
  58. }
  59.  
  60. _check_logger()
  61. {
  62.     # wait until pmlogger process starts, or exits
  63.     #
  64.     delay=5
  65.     [ ! -z "$PMCD_CONNECT_TIMEOUT" ] && delay=$PMCD_CONNECT_TIMEOUT
  66.     x=5
  67.     [ ! -z "$PMCD_REQUEST_TIMEOUT" ] && x=$PMCD_REQUEST_TIMEOUT
  68.  
  69.     # wait for maximum time of a connection and 20 requests
  70.     #
  71.     delay=`expr $delay + 20 \* $x`
  72.     i=0
  73.     while [ $i -lt $delay ]
  74.     do
  75.     echo ".\c"
  76.     if echo "connect $1" | pmlc >$tmp.out 2>&1
  77.     then
  78.         if grep "Unable to connect" $tmp.out >/dev/null
  79.         then
  80.         :
  81.         else
  82.         sleep 5
  83.         echo " done"
  84.         return 0
  85.         fi
  86.     fi
  87.     if ps -ef | grep pmlogger | nawk '
  88. BEGIN        { sts=0 }
  89. $2 == '$1'    { sts=1; exit sts }
  90. END        { exit sts }'
  91.     then
  92.         echo " process exited!"
  93.         _check_logfile
  94.         return 1
  95.     fi
  96.     sleep 5
  97.     i=`expr $i + 5`
  98.     done
  99.     echo " timed out waiting!"
  100.     sed -e 's/^/    /' $tmp.out
  101.     _check_logfile
  102.     return 1
  103. }
  104.  
  105. primary=true
  106. myname="primary pmlogger"
  107. connect=primary
  108. access=""
  109. config=""
  110. saveconfig=""
  111. logfile="pmlogger.log"
  112. namespace=""
  113. args=""
  114. sock_me=""
  115. usage="Usage: $prog"' [-a accessfile] [-c configfile] [-C saveconfig]
  116.     [-l logfile] [-L] [-n namespace] [-p pid] [-s] [-v volsamples] archive'
  117.  
  118. # option parsing
  119. #
  120. while getopts a:c:C:l:Ln:p:sv: c
  121. do
  122.     case $c
  123.     in
  124.     a)    access="$OPTARG"
  125.         if [ ! -f $access ]
  126.         then
  127.             echo "$prog: Error: cannot find accessfile ($access)"
  128.             _abandon
  129.         fi
  130.         ;;
  131.  
  132.     c)    config="$OPTARG"
  133.         if [ ! -f $config ]
  134.         then
  135.             if [ -f /var/pcp/config/pmlogger/$config ]
  136.             then
  137.             config="/var/pcp/config/pmlogger/$config"
  138.             else
  139.             echo "$prog: Error: cannot find configfile ($config)"
  140.             _abandon
  141.             fi
  142.         fi
  143.         ;;
  144.  
  145.     C)    saveconfig="$OPTARG"
  146.         ;;
  147.  
  148.     l)    logfile="$OPTARG"
  149.         ;;
  150.  
  151.     L)    args="$args-L "
  152.         ;;
  153.  
  154.     n)
  155.         namespace="-n $OPTARG"
  156.         args="$args-$c $OPTARG "
  157.         ;;
  158.  
  159.     p)    pid=$OPTARG
  160.         primary=false
  161.         myname="pmlogger (pid $pid)"
  162.         connect=$pid
  163.         ;;
  164.  
  165.     s)
  166.         sock_me="pmsocks "
  167.         ;;
  168.  
  169.     v)
  170.         args="$args-$c $OPTARG "
  171.         ;;
  172.     
  173.     \?)    echo "$usage"
  174.         _abandon
  175.         ;;
  176.     esac
  177. done
  178. shift `expr $OPTIND - 1`
  179.  
  180. if [ $# -ne 1 ]
  181. then
  182.     echo "$usage"
  183.     _abandon
  184. fi
  185.  
  186. # initial sanity checking for new archive name
  187. #
  188. archive=$1
  189. if [ -f $archive.0 -o -f $archive.index -o -f $archive.meta ]
  190. then
  191.     echo "$prog: Error: archive \"$archive\" exists, pmlogger would fail on restart"
  192.     ls -l $archive.*
  193.     _abandon
  194. fi
  195.  
  196. # check that designated pmlogger is really running
  197. #
  198. echo "Looking for $myname ...\c"
  199. ps -ef \
  200. | if $primary
  201.   then
  202.     grep 'pmlogger .*-P' | grep -v grep
  203.   else
  204.     nawk '$2 == '"$pid"' && /pmlogger/ { print }'
  205.   fi >$tmp.out
  206.  
  207. if [ -s $tmp.out ]
  208. then
  209.     echo " found"
  210.     cat $tmp.out
  211.     pid=`nawk '{ print $2 }' <$tmp.out`
  212. else
  213.     echo " Error: process not found"
  214.     _abandon
  215. fi
  216.  
  217. # pass primary/not primary down
  218. #
  219. $primary && args="$args-P "
  220.  
  221. # pass logfile option down
  222. #
  223. args="$args-l $logfile "
  224.  
  225. # if not a primary pmlogger, get name of pmcd host pmlogger is connected to
  226. #
  227. if $primary
  228. then
  229.     :
  230. else
  231.     # start critical section ... no interrupts due to pmlogger SIGPIPE
  232.     # bug in PCP 1.1
  233.     #
  234.     trap "echo; echo $prog:' Interrupt! ... I am talking to pmlogger, please wait ...'" 1 2 3 15
  235.     echo "Getting logged host name from $myname ...\c"
  236.  
  237.     ( echo "connect $connect" ; echo "status" ) \
  238.     | pmlc 2>$tmp.err >$tmp.out
  239.  
  240.     # end critical section
  241.     #
  242.     trap "rm -f $tmp.*; exit \$status" 0 1 2 3 15
  243.  
  244.     if [ -s $tmp.err ]
  245.     then
  246.     if grep "Unable to connect" $tmp.err >/dev/null
  247.     then
  248.         echo " failed to connect"
  249.         echo
  250.         sed -e 's/^/    /' $tmp.err
  251.         _abandon
  252.     else
  253.         echo
  254.         echo "$prog: Warning: errors from talking to $myname via pmlc"
  255.         sed -e 's/^/    /' $tmp.err
  256.         echo
  257.         echo "continuing ..."
  258.     fi
  259.     else
  260.     echo " done"
  261.     fi
  262.  
  263.     host=`sed -n -e '/^pmlogger/s/.* from host //p' <$tmp.out`
  264.     if [ "X$host" = X ]
  265.     then
  266.     echo "$prog: Error: failed to get host name from $myname"
  267.     echo "This is what was collected from $myname."
  268.     echo
  269.     sed -e 's/^/    /' $tmp.out
  270.     _abandon
  271.     fi
  272.     args="$args-h $host "
  273. fi
  274.  
  275. # extract/contruct config file if required
  276. #
  277. if [ "X$config" = X ]
  278. then
  279.     # start critical section ... no interrupts due to pmlogger SIGPIPE
  280.     # bug in PCP 1.1
  281.     #
  282.     trap "echo; echo $prog:' Interrupt! ... I am talking to pmlogger, please wait ...'" 1 2 3 15
  283.     echo "Contacting $myname to get logging state ...\c"
  284.  
  285.     # iterate over top-level names in pmns, and query pmlc for
  286.     # current configuration ... note exclusion of "proc" metrics
  287.     # ... others may be excluded in a similar fashion
  288.     #
  289.     ( echo "connect $connect" \
  290.       ; for top in `pminfo $namespace \
  291.             | sed -e 's/\..*//' -e '/^proc$/d' \
  292.             | sort -u`
  293.     do
  294.         echo "query $top"
  295.     done \
  296.     ) \
  297.     | pmlc $namespace 2>$tmp.err \
  298.     | nawk >$tmp.out '
  299. /^[^ ]/                        { metric = $1; next }
  300. $1 == "mand" || ( $1 == "adv" && $2 == "on" )     { print $0 " " metric }'
  301.  
  302.     # end critical section
  303.     #
  304.     trap "rm -f $tmp.*; exit \$status" 0 1 2 3 15
  305.  
  306.     if [ -s $tmp.err ]
  307.     then
  308.     if grep "Unable to connect" $tmp.err >/dev/null
  309.     then
  310.         echo " failed to connect"
  311.         echo
  312.         sed -e 's/^/    /' $tmp.err
  313.         _abandon
  314.     else
  315.         echo
  316.         echo "$prog: Warning: errors from talking to $myname via pmlc"
  317.         sed -e 's/^/    /' $tmp.err
  318.         echo
  319.         echo "continuing ..."
  320.     fi
  321.     else
  322.     echo " done"
  323.     fi
  324.  
  325.     if [ ! -s $tmp.out ]
  326.     then
  327.     echo "$prog: Error: failed to collect configuration info from $myname"
  328.     echo "Most likely this pmlogger instance is inactive."
  329.     _abandon
  330.     fi
  331.  
  332.     # convert to a pmlogger config file
  333.     #
  334.     sed <$tmp.out >$tmp.config \
  335.     -e 's/ on  nl/ on/' \
  336.     -e 's/ off nl/ off/'\
  337.     -e 's/  *mand  *\(o[nf]*\) /log mandatory \1 /' \
  338.     -e 's/  *adv  *on /log advisory on/' \
  339.     -e 's/\[[0-9][0-9]* or /[/' \
  340.     -e 's/\(\[[^]]*]\) \([^ ]*\)/\2 \1/' \
  341.     -e 's/   */ /g'
  342.  
  343.     if [ ! -s $tmp.config ]
  344.     then
  345.     echo "$prog: Error: failed to generate a pmlogger configuration file for pmlogger"
  346.     echo "This is what was collected from $myname."
  347.     echo
  348.     sed -e 's/^/    /' $tmp.out
  349.     _abandon
  350.     fi
  351.     config=$tmp.config
  352. fi
  353.  
  354. # optionally append access control specifications
  355. #
  356. if [ "X$access" != X ]
  357. then
  358.     if grep '\[access]' $config >/dev/null
  359.     then
  360.     echo "$prog: Error: pmlogger configuratiuon file already contains an"
  361.     echo "    access control section, specifications from \"$access\" cannot"
  362.     echo "    be applied."
  363.     _abandon
  364.     fi
  365.     cat $access >>$config
  366. fi
  367.  
  368. # add config file to the args, save config file if -C
  369. #
  370. args="$args-c $config "
  371. if [ "X$saveconfig" != X ]
  372. then
  373.     if cp $config $saveconfig
  374.     then
  375.     echo "New pmlogger configuration file saved as $saveconfig"
  376.     else
  377.     echo "$prog: Warning: unable to save configuration file as $saveconfig"
  378.     fi
  379. fi
  380.  
  381. # kill off existing pmlogger
  382. #
  383. echo "Terminating $myname ...\c"
  384. for sig in INT HUP KILL
  385. do
  386.     echo " SIG$sig ...\c"
  387.     kill -$sig $pid
  388.     sleep 1
  389.     [ "`_check_pid $pid`" = "" ] && break
  390. done
  391.  
  392. # the archive folio Latest is for the most recent archive in this directory
  393. #
  394. dir=`dirname $archive`
  395. rm -f $dir/Latest
  396.  
  397. if [ "`_check_pid $pid`" = "" ]
  398. then
  399.     echo " done"
  400. else
  401.     echo " failed!"
  402.     _abandon
  403. fi
  404.  
  405. # clean up port-map, just in case
  406. #
  407. PM_LOG_PORT_DIR=/var/tmp/pmlogger
  408. rm -f $PM_LOG_PORT_DIR/$pid
  409. $primary && rm -f $PM_LOG_PORT_DIR/primary $PM_LOG_PORT_DIR/vcr
  410.  
  411. # finally do it, ...
  412. #
  413. cd $dir
  414. [ "X$dir" = X. ] && dir=`pwd`
  415. archive=`basename $archive`
  416. echo "Launching new pmlogger in directory \"$dir\" as ..."
  417. [ -f $logfile ] && mv -f $logfile $logfile.prior
  418. echo "${sock_me}/usr/pcp/bin/pmlogger $args$archive"
  419. ${sock_me}/usr/pcp/bin/pmlogger $args$archive &
  420. new_pid=$!
  421.  
  422. echo "Waiting for new pmlogger to start ..\c"
  423. if _check_logger $new_pid
  424. then
  425.     echo "New pmlogger status ..."
  426.     ( echo "connect $new_pid"; echo "status" ) | pmlc
  427.  
  428.     # make the "Latest" archive folio
  429.     #
  430.     [ -f $archive.0 ] && /usr/pcp/bin/mkaf $archive.0 >Latest
  431.  
  432.     exit
  433. else
  434.     _abandon
  435. fi
  436.